home *** CD-ROM | disk | FTP | other *** search
/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / pipeline / pipedream / Documents / Custom / CF_sheets / c_GCD < prev    next >
Encoding:
Text File  |  1991-10-09  |  431 b   |  17 lines
  1. %OP%FX
  2. %OP%FY
  3. %OP%FS
  4. %OP%NDa,1
  5. %OP%NDb,0
  6. %OP%WC310,1576,364,820,0,0,0,0
  7. %OP%VS3.80 (11-Oct-91), Mrjc, R9200 7500 3900 8299 
  8. %CO:A,50,72%%V%%L%function("GCD","num_1:number","num_2:number")
  9. %V%%L%set_name("a",@num_1)
  10. %V%%L%set_name("b",@num_2)
  11. %V%%L%repeat
  12. %V%%L%set_name("a",mod(a,b))
  13. %V%%L%if(a=0,result(b),)
  14. %V%%L%set_name("b",mod(b,a))
  15. %V%%L%until(b=0)
  16. %V%%L%result(a)
  17. %CO:B,12,60%%CO:C,12,48%%CO:D,12,36%%CO:E,12,24%%CO:F,12,12%